home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / aijournl / 1986_10 / smallx1.bbs < prev    next >
File List  |  1986-04-14  |  3KB  |  146 lines
  1.  
  2.  
  3.                Sophisticated Small-X rule program
  4.  
  5.     Thi≤ i≤ rulσ prograφ i≤ ß primitivσ implementatioε oµ thσ ì
  6. famou≤ ELIZ┴ program(ß prograφ t∩ simulatσ ß Rogeriaε ì
  7. psychologis⌠ writteε orinall∙ b∙ JoesepΦ Weizenbauφ iε 196╢ a⌠ ì
  8. M.I.T.)« Thi≤ examplσ i≤ showε a≤ ß morσ comple° examplσ oµ rulσ ì
  9. capabilities.
  10. ì
  11. % Primitive Elizaì
  12. % Implemented by R. Kaplanì
  13. % in Small-Xì
  14. %ì
  15. if not in-memory(dummy) thenì
  16. {
  17.     write clear
  18.     write ELIZA
  19.     write new-line
  20.     write new-line
  21.     write Hello
  22.     write new-line
  23.     write new-line
  24.     write 'You can talk to me by typing. Please enclose all of'
  25.     write new-line
  26.     write 'your sentences in brackets [ ... ].'
  27.     write new-line
  28.     write 'To exit, enter [bye].'ì
  29.  
  30.     write new-line
  31.     write new-line
  32.     add respondedì
  33. }ì
  34. [control] if not in-memory(dummy) thenì
  35. {
  36.     reset a
  37.     reset b
  38.     reset c
  39.     reset d
  40.     reset e
  41.     reset f
  42.     reset g
  43.     reset y
  44.     remove responded
  45.     read list #textì
  46. }ìè[e] if #text in [Hello] thenì
  47. {
  48.     write [How are you today]
  49.     write new-line
  50.     write new-line
  51.     add responded
  52.     reset controlì
  53. }ì
  54. [a] if #text in [I want to talk about ?] thenì
  55. {
  56.     bind #t !
  57.     compute #t <- ...#t
  58.     compute #t <- ...#t
  59.     compute #t <- ...#t
  60.     compute #t <- ...#t
  61.     compute #t <- ...#t
  62.     compute #t <- [Tell me more about] + #t
  63.     write #t
  64.     write new-line
  65.     write new-line
  66.     add responded
  67.     reset controlì
  68. }ì
  69. [b] if #text in [I want to talk about my ?] thenì
  70. {
  71.     bind #t !
  72.     compute #t <- ...#t
  73.     compute #t <- ...#t
  74.     compute #t <- ...#t
  75.     compute #t <- ...#t
  76.     compute #t <- ...#t
  77.     compute #t <- ...#t
  78.     compute #t <- [Tell me more about your] + #t
  79.     write #t
  80.     write new-line
  81.     write new-line
  82.     add responded
  83.     reset controlì
  84.  
  85. }ì
  86. [c] if #text in [Men are all alike] thenì
  87. {
  88.     write 'In what way ?'
  89.     write new-line
  90.     write new-line
  91.     add responded
  92.     reset controlì
  93. }ì
  94. [d] if #text in [My ? made me come here] thenì
  95. {
  96.     bind #t !
  97.     compute #t <- ...#t
  98.     compute #t <- .#t
  99.     compute #object <- #t + []
  100.     compute #t <- [Are you upset about] + #tè    compute #t <- #t + [making you come here]
  101.     write #t
  102.     write new-line
  103.     write new-line
  104.     add responded
  105.     reset controlì
  106. }ì
  107. [f] if #text in [yes] thenì
  108. {
  109.     write [You seem rather agreeable today]
  110.     write new-line
  111.     write new-line
  112.     add responded
  113.     reset controlì
  114. }ì
  115. [g] if #text in [no] thenì
  116. {
  117.     write [Why not ?]
  118.     write new-line
  119.     write new-line
  120.     add responded
  121.     reset controlì
  122. }ì
  123. [h] if in-memory(#object) thenì
  124. {
  125.     bind #t [Earlier you mentioned]
  126.     compute #t <- #t + #object
  127.     write #t
  128.     write new-line
  129.     write [Do you want to talk about this]
  130.     write new-line
  131.     write new-line
  132.     add responded
  133.     reset controlì
  134. }ì
  135. [z] if #text in [bye] then haltì
  136. [y] if not in-memory(responded) thenì
  137. {
  138.     write [Could you explain that to me]ì
  139.  
  140.     write new-line
  141.     write new-line
  142.     add responded
  143.     reset controlì
  144. }
  145.  
  146.